home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00883_TH-RN.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  1.1 KB  |  46 lines
  1. on enterFrame
  2.   global gSurvolPrec
  3.   do_it()
  4.   set gSurvolPrec to -1
  5. end
  6.  
  7. on exitFrame
  8.   global gLocLabel, gSensTrans
  9.   if gLocLabel <> "TH:RN" then
  10.     puppetTransition(gSensTrans, 2, 2, 1)
  11.   end if
  12.   go(label(gLocLabel))
  13. end
  14.  
  15. on do_it
  16.   global gSurvolAct, gSurvolPrec, gMaxBoutons, g1erSprNav, g1erSprLoc, gEtudAct, gEtatEtud, gTraduit
  17.   if not (the mouseDown) then
  18.     set MsCast to the mouseCast
  19.     if MsCast > 0 then
  20.       set gSurvolAct to 0
  21.       repeat with monSpr = g1erSprNav + 5 to gMaxBoutons
  22.         if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) and the visible of sprite monSpr then
  23.           set gSurvolAct to monSpr
  24.           exit repeat
  25.         end if
  26.       end repeat
  27.       if gSurvolAct <> gSurvolPrec then
  28.         if gSurvolAct <> 0 then
  29.           if (gSurvolAct = 25) or (gSurvolAct = 21) then
  30.             curseur(1)
  31.           else
  32.             curseur(7)
  33.           end if
  34.         else
  35.           curseur(-1)
  36.         end if
  37.         set gSurvolPrec to gSurvolAct
  38.         updateStage()
  39.       end if
  40.     else
  41.       curseur(-1)
  42.     end if
  43.   end if
  44.   updateStage()
  45. end
  46.